<%
 Response.CacheControl = "private"
 Response.AddHeader "Pragma", "No-Cache"
 Response.Expires = 0

' Response.Cachecontrol="private" 
' Response.Expires=0 
' Response.AddHeader "pragma", "no-cache"

 
Sub XMLToHTMLOutput(objXMLDoc, strXSLFileName)
	Dim objXSLDoc
	Dim objError
	' -- init
	'   xsl doc
'	on error resume next
	set objXSLDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
	objXSLDoc.async = False
	objXSLDoc.load(Server.MapPath(strXSLFileName))
	set objError = objXSLDoc.parseError
	if( objError.errorCode <> 0) then
		Response.Write( "Error in XSL file /" & strXSLFileName & "/: " + CStr( objError.reason) )
	end if		

	'   xml doc
	objXSLDoc.resolveExternals = true
	call objXMLDoc.transformNodeToObject(objXSLDoc, Response)

	' destroy
	set objXSLDoc = nothing
End Sub

 %>
